   5 .SLOT MACHINE
   6 .BY ERNIE SAMS
   7 .4/1979
   8 .
  10 clear ;NT=1
  15 gosub 3000
  20 box -7,-2,134,64,1
  30 box 61,0,6,4,1
  40 box 65,10,3,24,1
  50 box 67,22,6,10,1
  52 box -7,-20,126,14,2
  54 box -7,-20,124,12,1
  56 box -7,-20,122,10,2
  60 CX=-62;CY=-20
  70 print "ARCADE SLOT MACHINE",
  80 box -50,15,42,14,2
  82 box -50,15,40,12,1
  84 box -50,15,38,10,2
  86 box -8,15,42,14,2
  88 box -8,15,40,12,1
  90 box -8,15,38,10,2
  92 box 34,15,42,14,2
  94 box 34,15,40,12,1
  96 box 34,15,38,10,2
 100 M=0
 200 N=KN(1)+128
 210 N=Ndiv 20;if N>10 N=10
 212 if N<1 N=1
 220 CX=-75;CY=40
 230 print "BET?",#3,N
 240 if TR(1)=0goto 200
 250 gosub 1000
 260 goto 200
1000 for Y=27to 8step -1
1010 box 67,Y,9,1,2
1015 box 67,Y-5,6,10,1
1020 next Y
1030 for Y=8to 27
1035 box 67,Y-4,6,10,1
1040 box 65,Y,3,1,1
1045 box 69,Y-10,4,2,2
1050 next Y
1060 NT=0
1070 for C=0to 4
1080 for B=0to 2
1090 D=rnd (5)
1100 if C=4@(B)=D
1110 CY=15
1120 if B=0 CX=-65
1130 if B=1 CX=-23
1140 if B=2 CX=19
1145 for Z=16to 22
1146 &(Z)=79
1147 next Z
1150 if D=1 print "LEMON ",
1160 if D=2 print "CHERRY",
1170 if D=3 print "ORANGE",
1180 if D=4 print " BELL ",
1190 if D=5 print "=BAR= ",
1192 for Z=22to 16step -1;&(Z)=0;next Z
1194 next B
1195 next C
1198 NT=1;L=M
1200 if @(0)=1 gosub 2000;return 
1210 if @(0)=@(1) if @(0)=@(2) gosub 1300;return 
1220 if @(0)=@(1) gosub 1400;return 
1230 if @(0)=2 M=M+(2mul N);gosub 1500;return 
1240 gosub 2000;return 
1300 if @(0)=5 M=M+(18mul N);gosub 1500;return 
1310 if @(0)=4 M=M+(14mul N);gosub 1500;return 
1320 if @(0)=3 M=M+(10mul N);gosub 1500;return 
1325 if @(0)=2 M=M+(8mul N);gosub 1500;return 
1330 gosub 2000;return 
1400 if @(0)=4 if @(2)=5 M=M+(12mul N);gosub 1500;return 
1410 if @(0)=3 if @(2)=5 M=M+(8mul N);gosub 1500;return 
1420 if @(0)=2 M=M+(5mul N);gosub 1500;return 
1430 gosub 2000;return 
1500 box 0,-40,150,8,2
1510 CX=-75;CY=-40
1512 M=M-N
1515 print "YOU WON $", #3,M-L,
1520 gosub 2010
1522 for V=1to N
1525 &(19)=37;&(17)=31;&(21)=47;&(22)=31
1530 FC=83
1540 for U=30to 20 step -1;&(16)=U;next U
1550 FC=0
1570 for U=20to 30;&(16)=U;next U
1610 next V
1620 for Z=22to 16 step -1;&(Z)=0;next Z
1630 return 
2000 box 0,-40,150,8,2
2005 M=M-N;CX=-75;CY=-40;print "SORRY",
2010 CX=5;print "TOTAL $", #3,M,;return 
3000 print "ARCADE SLOT MACHINE";print 
3010 print "KNOB #1 LETS YOU BET FROM $1 to $10.  PULL THE TRIG-"
3020 print "GER TO PLACE YOUR BET."
3030 print "THERE ARE LOTS OF WINNING COMBINATIONS. A CHERRY IN THE LEFT WINDOW ALWAYS IS"
3040 print "A WINNER; BUT A LEMON IN THE LEFT WINDOW NEVER WINS"
3050 print "PRESS GO TO START PLAY.",
3060 K=KP;if K=13 clear ;return 
3070 goto 3060
:return ;run 
